home *** CD-ROM | disk | FTP | other *** search
/ The Virtual Portfolio - N…a Showcase - Book 5 1995 / VIRTUAL [md5 EC7DB5CC033E38E511F666CE80BCE509].ISO / mac / Main / VP.mac / 00099.ls < prev    next >
Encoding:
Text File  |  1995-07-18  |  4.3 KB  |  203 lines
  1. on checkDedell
  2.   global stageMe
  3.   set stageMe to the stageBottom - the stageTop
  4.   puppetSprite(45, 1)
  5.   puppetSprite(46, 1)
  6.   set the locV of sprite 45 to stageMe - 320
  7.   set the locV of sprite 46 to stageMe - 220
  8.   puppetSprite(45, 0)
  9.   puppetSprite(46, 0)
  10.   updateStage()
  11.   pause()
  12. end
  13.  
  14. on checkSky
  15.   global stageMe
  16.   set stageMe to the stageBottom - the stageTop
  17.   puppetSprite(41, 1)
  18.   puppetSprite(42, 1)
  19.   set the locV of sprite 41 to stageMe - 300
  20.   set the locV of sprite 42 to stageMe - 200
  21.   puppetSprite(41, 0)
  22.   puppetSprite(42, 0)
  23.   updateStage()
  24.   pause()
  25. end
  26.  
  27. on checkPNI
  28.   global stageMe
  29.   set stageMe to the stageBottom - the stageTop
  30.   puppetSprite(43, 1)
  31.   puppetSprite(44, 1)
  32.   set the locV of sprite 43 to stageMe - 300
  33.   set the locV of sprite 44 to stageMe - 200
  34.   puppetSprite(43, 0)
  35.   puppetSprite(44, 0)
  36.   updateStage()
  37.   pause()
  38. end
  39.  
  40. on checkPlanet
  41.   global stageMe
  42.   set stageMe to the stageBottom - the stageTop
  43.   puppetSprite(41, 1)
  44.   puppetSprite(42, 1)
  45.   set the locV of sprite 41 to stageMe - 300
  46.   set the locV of sprite 42 to stageMe - 200
  47.   puppetSprite(41, 0)
  48.   puppetSprite(42, 0)
  49.   updateStage()
  50.   pause()
  51. end
  52.  
  53. on checkWig
  54.   global stageMe
  55.   set stageMe to the stageBottom - the stageTop
  56.   puppetSprite(47, 1)
  57.   puppetSprite(48, 1)
  58.   set the locV of sprite 47 to stageMe - 320
  59.   set the locV of sprite 48 to stageMe - 220
  60.   puppetSprite(47, 0)
  61.   puppetSprite(48, 0)
  62.   updateStage()
  63.   pause()
  64. end
  65.  
  66. on checkRen
  67.   global stageMe
  68.   set stageMe to the stageBottom - the stageTop
  69.   puppetSprite(47, 1)
  70.   puppetSprite(48, 1)
  71.   set the locV of sprite 47 to stageMe - 320
  72.   set the locV of sprite 48 to stageMe - 220
  73.   puppetSprite(47, 0)
  74.   puppetSprite(48, 0)
  75.   updateStage()
  76.   pause()
  77. end
  78.  
  79. on checkBartel
  80.   global stageMe
  81.   set stageMe to the stageBottom - the stageTop
  82.   puppetSprite(47, 1)
  83.   puppetSprite(48, 1)
  84.   set the locV of sprite 47 to stageMe - 320
  85.   set the locV of sprite 48 to stageMe - 220
  86.   puppetSprite(47, 0)
  87.   puppetSprite(48, 0)
  88.   updateStage()
  89.   pause()
  90. end
  91.  
  92. on checkImage
  93.   global stageMe
  94.   set stageMe to the stageBottom - the stageTop
  95.   puppetSprite(47, 1)
  96.   puppetSprite(48, 1)
  97.   set the locV of sprite 47 to stageMe - 320
  98.   set the locV of sprite 48 to stageMe - 220
  99.   puppetSprite(47, 0)
  100.   puppetSprite(48, 0)
  101.   updateStage()
  102.   pause()
  103. end
  104.  
  105. on checkMed
  106.   global stageMe
  107.   set stageMe to the stageBottom - the stageTop
  108.   puppetSprite(37, 1)
  109.   puppetSprite(38, 1)
  110.   set the locV of sprite 37 to stageMe - 320
  111.   set the locV of sprite 38 to stageMe - 220
  112.   puppetSprite(37, 0)
  113.   puppetSprite(38, 0)
  114.   updateStage()
  115.   pause()
  116. end
  117.  
  118. on checkMeta
  119.   global stageMe
  120.   set stageMe to the stageBottom - the stageTop
  121.   puppetSprite(39, 1)
  122.   puppetSprite(40, 1)
  123.   set the locV of sprite 39 to stageMe - 320
  124.   set the locV of sprite 40 to stageMe - 220
  125.   puppetSprite(39, 0)
  126.   puppetSprite(40, 0)
  127.   updateStage()
  128.   pause()
  129. end
  130.  
  131. on checkRed
  132.   global stageMe
  133.   set stageMe to the stageBottom - the stageTop
  134.   puppetSprite(45, 1)
  135.   puppetSprite(46, 1)
  136.   set the locV of sprite 45 to stageMe - 320
  137.   set the locV of sprite 46 to stageMe - 220
  138.   puppetSprite(45, 0)
  139.   puppetSprite(46, 0)
  140.   updateStage()
  141.   pause()
  142. end
  143.  
  144. on checkTP
  145.   global stageMe
  146.   set stageMe to the stageBottom - the stageTop
  147.   puppetSprite(45, 1)
  148.   puppetSprite(46, 1)
  149.   set the locV of sprite 45 to stageMe - 320
  150.   set the locV of sprite 46 to stageMe - 220
  151.   puppetSprite(45, 0)
  152.   puppetSprite(46, 0)
  153.   updateStage()
  154.   pause()
  155. end
  156.  
  157. on checkUpton
  158.   global upTon, stageMe
  159.   set stageMe to the stageBottom - the stageTop
  160.   if upTon = 0 then
  161.     puppetSprite(43, 1)
  162.     puppetSprite(44, 1)
  163.     set the locV of sprite 43 to stageMe - 300
  164.     set the locV of sprite 44 to stageMe - 200
  165.     puppetSprite(43, 0)
  166.     puppetSprite(44, 0)
  167.     updateStage()
  168.     set upTon to 1
  169.     pause()
  170.   else
  171.     if upTon <> 0 then
  172.       yesUpton()
  173.     end if
  174.   end if
  175. end
  176.  
  177. on yesUpton
  178.   global upTon, TheSound
  179.   if upTon = 1 then
  180.     set upTon to 2
  181.     puppetSound(0)
  182.     puppetSound("r8")
  183.     updateStage()
  184.     startTimer()
  185.     repeat while the timer < (2 * 60)
  186.     end repeat
  187.     puppetSound(0)
  188.     open("virtual portfolio:demos:tom upton:tom's portraits")
  189.   else
  190.     if upTon = 2 then
  191.       set upTon to 0
  192.       puppetSound(0)
  193.       puppetSound("r3")
  194.       updateStage()
  195.       startTimer()
  196.       repeat while the timer < (2 * 60)
  197.       end repeat
  198.       puppetSound(0)
  199.       open("virtual portfolio:demos:tom upton:tom's still life")
  200.     end if
  201.   end if
  202. end
  203.